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DOCUMENT H 




0 98.11.09 09:30 B C: \ incoming\crib_database\cgi\derek\admin . cgi <-- matthew 

/export/home/howie, tcrib_database/cgi/derek admin, cgi 
(Z) 98.11.09 09:30 B C: \.incoming\crib_database\cgi\derek\admin_del . cgi <-- mattiew 

/export /home/howie :rrib_database/cgi/derek admin_del . cgi 
(P 98.11.09 09:30 B C: \.incoming\crib_database\cgi\derek\admin_edit . cgi <-- matthew 
/export/home/howie ~rib_database/cgi/derek admin_edit . cgi 

98.11.09 09:30 B Cz \ incoming\crib_database\cgi\derek\admin_make . cgi <-- matthew 
/export/home/howie rrrib database/cgi/derek admin make. cgi 
98.11.09 09:30 B C: . incoming\crib database\cgi\derek\admin_modif y . cgi 
matthew /export/hcn^/howie/crib_database/cgi/derek admin_modif y . cgi 
(0 98.11.09 09:30 B Cz % incoming\crib_database\cgi\derek\admin_result . cgi 

matthew /export/hdne?/howie/crib_database/cgi/derek admin_result . cgi 
(5? 98.11.09 09:30 B C: . incoming\crib_database\cgi\derek\admin_toggle . cgi 
matthew /export/hcnrs/howie/crib_database/cgi/derek admin_toggle . cgi 
98.11.09 09:30 B C: ..incoming\crib_database\cgi\derek\ liberty_shared . cgi <-- 
matthew /export/hcra&/howie/crib_database/cgi/derek liberty_shared . cgi 
98.11.09 09:30 B C: .incoming\crib_database\cgi\derek\liberty_view.html <-- 
matthew / export /hcrcs/howie/crib_database/ cgi /derek liberty_view.html 
[IP> 98.11.09 09:30 B C: ..incoming\crib_database\cgi\derek\read_query . cgi <-- matthew 

/export/home/howie zrrib_database/cgi/derek read_query . cgi 
(0 98.11.09 09:30 B C: ..incoming\crib_database\cgi \derek\read_result . cgi <-- matrhew 

/export/home/howie zzrib_database/cgi/derek read_result . cgi 
(f^ 98.11.09 09:30 B C: ..incoming\crib_database\cgi\derek\vw_result.html <-- matthew 
/export/home/howie rrrib_database/cgi/derek vw_result.html 
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# ! /usr/bin/perl 

require ( 1 liberty_shared . cgi ' ) ; 

&HTML ; 
&GETSET; 
&GETFORMDATA ; 
&GETD AT ABASE ; 

$DelLin = $ FORM { id} ; 



#PartNo 

open (DB, ">$db") ; 

for ($i=0; $i<=$FilesInDatabase; $i++) { 
if ($PartNo[$i] ne $DelLin) { 
print DB 

"$State [$i] \t$Establishment [$i] \t$Address [$i] \t$City [$i] \t$Phone [$i] \t$WebLoc [$i 
] \t$PartNo [$i] \t$Group [$i] \t$Password [$i] \t$Account [$i] \t$Email [$i] \t$Active [$i] 
\t$ActWWW\n"; 

} 
} 

close (<DB>) ; 

print "Account $DelLin Removed . <P> " ; 

print "<A HREF=\ M admin.cgi\ n >Click Here to Return to Main Admin Screen</AxBR>" ; 
print "Do not use your browser back button."; 



# ! /usr/bin/perl 

require ( ■ 1 iberty_shared . cgi 1 ) ; 

&HTML ; 
&GETSET; 
&GETFORMDATA ; 
&GETDATABASE; 

$DelLin = $ FORM { id} ; 



#PartNo 

open (DB, n >$db") ; 

for ($i=0 ; $ i<=$FilesInDat abase ; $i++) { 
if ($PartNo[$i] ne $DelLin) { 
print DB 

"$State [$i] \t$Establishment [$i] \t$Address [$i] \t$City [$i] \t$Phone [$i] \t$WebLoc [$i 
] \t$PartNo [$i] \t$Group [$i] \t$Password [$i] \t$Account [$i] \t$Email [$i] \t$Active [$i] 
\t$ActWWW\n" ; 

} 
} 

close (<DB>) ; 

print "Account $DelLin Removed. <P>" ; 

print "<A HREF=\ "admin. cgi\">Click Here to Return to Main Admin Screen</A><BR>" ; 
print "Do not use your browser back button."; 



& 



# ! /usr/bin/perl 

require ( ' liberty_shared . cgi 1 ) ; 

&HTML ; 
&GETSET; 
&GETFORMDATA; 
&GETDATABASE; 

$UID = $ FORM { add }; 

#PartNo 



open (DB , ">>$db") ; 



print 


DB 


"$FORM{stat}\t" ; 


print 


DB 


"$FORM{estab}\t" ; 


print 


DB 


"$FORM{addr}\t" / 


print 


DB 


"$FORM{city}\t M ; 


print 


DB 


"$FORM{phon}\t" ; 


print 


DB 


n $FORM{wweb}\t n ; 


print 


DB 


n $UID\t M ; 


print 


DB 


"$FORM{grup}\t" ; 


print 


DB 


"$FORM{pass}\t" ; 


print 


DB 


"$FORM{acct}\t" ; 


print 


DB 


"$FORM{mail}\t u ; 


print 


DB 


n $FORM{actv}\t"; 


print 


DB 


n $FORM{actwww}\n" ; 



close (<DB>) ; 



print "New account recorded. <P>" ; 

print "<A HREF=\" admin. cgi\">Click Here to Return to Main Admin Screen</AxBR>" ; 
print "Do not use your browser back button."; 




# ! /usr/bin/perl 

require ( 1 liberty_shared . cgi ' ) ; 

&HTML / 
&GETSET; 
&GETFORMDATA ; 
&GETD AT ABASE ; 

$RepLin = $ FORM {modify} ; 



#PartNo 



open (DB, ">$db") ; 

for ($i=0; $i<=$FilesInDatabase ; $i++) { 
if ($PartNo[$i] eq $RepLin) { 

! $FORM{stat}\t"; 
"$FORM{estab}\t" / 
'$FORM{addr}\t" 
'$FORM{city}\t" 
''SFORMjphonjXt" 
! $FORM{wweb}\t" 
lf SRepLin\t"; 
'$FORM{grup}\t" 
•$FORM{pass}\t" 
"$PORM{acct}\t" 
"$FORM{mail}\t" 
!, $FORM{actv}\t" ; 
"$FORM{actwww}\t M ; 

} 

else { 
print DB 

"$State [$i] \t$Establishment [$i] \t$Address [$i] \t$City [$i] \t$Phone [$i] \t$WebLoc [$i 
] \t$PartNo [$i] \t$Group [$i] \t$Password [$i] \t$Account [$i] \t$Email [$i] \t$Active [$i] 
\t$ActWWW[$i] \n n / 

} 

} 

close (<DB>) ; 



print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 


print 


DB 



print "Changes recorded . <P>" ; 

print "<A HREF=\ "admin. cgi\ " >Click Here to Return to Main Admin Screen</AxBR>"; 
print "Do not use your browser back button."; 




EOF if ($ Action eq "group") { &ADMINSELECTGROUP; } elsif ($ Action eq "region") 

{ &ADMINSELECTREGION; } elsif ($ Action eq "account") 

{ &ADMINSELECT ACCOUNT; } elsif ($ Action eq "create") 

{ & ADMINCRE ATE AC COUNT; } else { &ADMINSELECTALL; } sub 

ADMINSELECTGROUP { SSelNum = 0; for ($z=0;$z<=$FilesInDatabase;$z++) { if 

(SrGroup eq $Group[$z]) { if ($rSort eq "stat") { $SELECT[$SelNum] = 

"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 

Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 

WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT[$SelNum] = 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 

Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 

WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$SelNum] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$SelNum] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "grou") { $SELECT[$SelNum] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 
WW[$z]"; } $SelNum++; } } SSelNum = SSelNum - 1; ©SELECT = sort(@SELECT); 

print "": print " MARK ENTIRE GROUP ONI ": print ' TMARK ENTIRE GROUP QFF1 
\n"; print " 

\n"; for ($z=0;$z<=$SelNum;$z++) { if (SrSort eq "stat") 

{ ($sta,$est,$add,$cty,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "esta") 

{ ($est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "addr") 

{ ($add,$est,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "city") 

{ ($cty,$est,$add,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "grou") 

{ ($grp,$est,$add,$cty,$sta,$pho,$www,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "acco") 

{ ($acc,$est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } $act =~tr/a-z/A-Z/; if ((Srlnactive eq 

"hide") and (Sact eq "OFF")) { print "\n"; } else { print <$est ideletei 

Sadd 

Scty, $sta 
Spho 

Swww (Sactwww) 



Account Name: $acc [$act] 
Contact Mail: Sema 
Grouped with: $grp 

EOF } } print " 
"; } sub ADMINSELECTREGION { $SelNum = 0; for 

($z=0;$z<=$FilesInDatabase;$z++) { if (SrRegion eq $State[$z]) { if ($rSort eq "stat") 
{ $SELECT[$SelNum] = 

"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT[$SelNum] = 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$SelNum] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$SelNum] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "grou") { $SELECT[$SelNum] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 
WW[$z]"; } $SelNum++; } } SSelNum = SSelNum - 1; ©SELECT = sort(@SELECT); 
print " 

\n"; for ($z=0;$z<=$SelNum;$z++) { if (SrSort eq "stat") 

{ ($sta,$est,$add,$cty,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "esta") 

{ ($est,$add3cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act3num,$actvvww) = split 
(At/,$SELECT[$z]); } elsif ($rSort>eq "addr") 

{ ($add,$est,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$erna,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "city") 

{ ($cty,$est,$add,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "grou") 

{ (Sgrp.Sest.SaddjScty^sta^pho^wvvw.SpwdjSacc.SernajSact.SnunijSactwww) = split 
(At/,$SELECT[$z]); } elsif (SrSort eq "acco") 

{ ($acc,$est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$ema,$act,$nurn,$actwww) = split 
(At/,$SELECT[$z]); } $act =~tr/a-z/A-Z/; if ((Srlnactive eq "hide") and (Sact eq "OFF")) 
{ print "\n"; } else { print < $est rDELETEi 
Sadd 

Scty, Ssta 
Spho 

$www (Sactwww) 

Account Name: $acc [Sact] 
Contact Mail: Sema 
Grouped with: $grp 



EOF } } print " 

"; } sub ADMINSELECTACCOUNT { SSelEntry = "None"; for 

($z=0;$z<=$FilesInDatabase;$z++) { if (SrAccountName eq $Account[$z]) 

{$SelEntry=$i; last;} } if (SSelEntry eq "None") { print "No account found."; } else 

{ print <$Establishment[$SelEntry1 fdeletei 

$Address[$SelEntry] 

$City[$SelEntry], $State[$SelEntry] 

$Phone[$SelEntry] 

$WebLoc[$SelEntry]($ActWWW[$SelEntry]) 
Account Name: $Account[$SelEntry] [$Active[$SelEntry]] 
Contact Mail: $Email[$SelEntry] 
Grouped with: $Group[$SelEntry] 

EOF } } sub ADMINSELECTALL { SSortNum = SFilesInDatabase; for 
($z=0;$z<=$FilesInDatabase;$z++) { if ($rSort eq "stat") { $SELECT[$z] = 
"$State[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "esta") { $SELECT,[$z] = 

"$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 
WWW[$z]"; } elsif (SrSort eq "addr") { $SELECT[$z] = 

"$Address[$z]\t$Establishment[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 

WWW[$z]"; } elsif (SrSort eq "city") { $SELECT[$z] = 

"$City[$z]\t$Establishment[$z]\t$Address[$z]\t$State[$z]\t$Phone[$z]\t$WebLoc[$z]\t$ 
Group[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$Act 

WWW[$z]"; } elsif (SrSort eq "grou") { $SELECT[$z] = 

"$Group[$z]\t$Establishment[$z]\t$Address[$z]\t$City[$z]\t$State[$z]\t$Phone[$z]\t$W 
ebLoc[$z]\t$Password[$z]\t$Account[$z]\t$Email[$z]\t$Active[$z]\t$PartNo[$z]\t$ActW 

WW[$z]"; } } ©SELECT = sort(@SELECT); print " 

\n"; for ($z=0;$z<=$SortNum;$z++) { if (SrSort eq "stat") 

{ ($sta3est,$add,$cty3pho,$\^vw,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) - split (At/,$SELECT[$z]); } elsif (SrSort eq "esta") 

{ ($est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "addr") 

{ ($add,$est,$cty,$sta,$pho,$www,$grp,$pwd,$acc 5 $ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "city") 

{ ($cty,$est,$add,$sta,$pho,$www,$grp,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "grou") 
{($grp,$est,$add,$cty,$sta,$pho,$www,$pwd,$acc,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$z]); } elsif (SrSort eq "acco") 

{ ($acc,$est,$add,$cty,$sta,$pho,$www,$grp,$pwd,$ema,$act,$num,$actw 

ww) = split (At/,$SELECT[$zj); } $act =~tr/a-z/A-Z/; if (($rlnactive eq 

"hide") and ($act eq "OFF")) { print "\n"; } else { print <$est fPELETEi 

$add 




$cty, $sta 
$pho 

$www ($actwww) 

Account Name: $acc [$act] 
Contact Mail: $ema 
Grouped with: $grp 

EOF } } print " 

"; } sub ADMINCRE ATE AC C OUNT { $UID=0; for ($i=0;$i<=$FilesInDatabase;$i++) 
{ $cpt = $PartNo[$i] + 0; if ($cpt > $UID) { $UID - $cpt; } } $UID++; if (length ($UID) 
eq 1) { $UID = "OOOOSUID"; } elsif (length ($UID) eq 2) { $UID = "000$UID"; } elsif 
(length ($UID) eq 3) { $UID - "00$UID M ; } elsif (length ($UID) eq 4) { $UID = 
M 0$UID";} print < 



Establishment 
Group 
Address 
City 
State 
Phone 
Website 

Web Link ® QN. C OFF. 



Password 
Account Name 
Email 



Account Status ® QN. ^ OFF, 




EOF} 




# ! /usr/bin/perl 

require ( * liberty_shared . cgi 1 ) / 

&HTML ; 
&GETSET; 
&GETFORMDATA; 
&GETDAT ABASE ; 

$ToggleGroup = $FORM{group} / 
$ToggleToggle= $FORM{ toggle} ; 

open (DB, ">$db") / 

for ($i=0 ; $i<=$FilesInDatabase; $i++) { 

if ($Group[$i] ne $ToggleGroup) { print DB 

"$State [$i] \t$Establishment [$i] \t$Address [$i] \t$City t$i] \t$Phone [$i] \t$WebLoc [$i 
] \t$PartNo [$i] \t$Group [$i] \t$Password [$i] \t$Account [$i] \t$Email [$i] \t$Active [$i] 
\t$ActWWW [$i] \n" / } 

else { print DB 

"$State [$i] \t$Establishment [$i] \t$Address [$i] \t$City [$i] \t$Phone [$i] \t$WebLoc [$i 
] \t$PartNo [$i] \t$Group [$i] \t$Password [$i] \t$Account [$i] \t$Email [$i] \t$ToggleTogg 
le\t$ActWWW [$i] \n" ; } 

} 

close (<DB>) ; 

print "$ToggleGroup marked $ToggleToggle . <P>" ; 

print "<A HREF=\ "admin . cgi\ 11 >Click Here to Return to Main Admin Screen</AxBR>" ; 

print "Do not use your browser back button."; 



1; sub HTML { print "Content-type: text/html\n\n"; } sub GETSET { $db = 
Vvar/data/home/derek/www/retailstore.db'; $img = 
'http://www.creek.net/~derek/misc/devbin/img'; $URL = 
'http://www.creek.net/~derek/cgi-bin'; } sub GETFORMDATA { if 
($ENV {'REQUESTMETHOD'} eq "GET") { $formData = 
$ENV {'QUERY STRING'} ; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") 
{ read(STDIN, SformData, $ENV{'CONTENT_LENGTH'}); } @pairs - split(/&/, 
SformData); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; 
Svalue =~ s/~!/ ~!/g; $value — s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($l))/eg; 
$FORM{$name} = Svalue; } $SeekBy=$FORM {region}; $SortBy=$FORM{sort}; } sub 
GETDATABASE { $cnt = 0; open (DB,") { chomp; ($State[$cnt], $Establishment[$cnt], 
$Address[$cnt], $City[$cnt], $Phone[$cnt], $WebLoc[$cnt], $PartNo[$cnt], 
$Group[$cnt], $Password[$cnt], $Account[$cnt], $Email[$cnt], $Active[$cnt], 
$ActWWW[$cnt]) = split(At/); $cnt++; } close 0; $cnt = $cnt - 1; $FilesInDatabase - 
$cnt; } sub GETACTIVEREGIONS { $reg = 0; for ($i=0;$i<=$FilesInDatabase;$i++) 
{ $match = "no"; for ($j=0;$j<=$reg;$j++) { if (($State[$i] eq $Regions[$j]) and 
($Active[$i] ne "OFF")) { $match - "yes"; } } if (($match eq "no") and ($Active[$i] ne 
"OFF")) { $Regions[$reg] = $State[$i]; $reg++; } } $reg = $reg - 1; ©Regions = sort 
(©Regions); } sub GETACTIVEGROUPS { $reg = 0; for 

($i=0;$i<=$FilesInDatabase;$i++) { $match = "no"; for ($j=0;$j<=$reg;$j++) { if 
($Group[$i] eq $Groupings[$j]) { $match = "yes"; } } if (Smatch eq "no") 
{ $Groupings[$reg] = $Group[$i]; $reg++; } } $reg = $reg - 1; $GroupNum = $reg; 
©Groupings = sort (©Groupings); } sub SORTACTION { $vw - 0; for 
($z=0;$z<=$FilesInDatabase;$z++) { if (($State[$z] eq SSeekBy) and ($Active[$z] ne 
"OFF")) { $ViewSort[$vw] = 

"$WebLoc[$z]\t$Phone[$z]\t$Group[$z]\t$PartNo[$z]\t$ ActWWW[$z]" ; if (SSortBy eq 
"City") { $ViewSort[$vw] = "$City[$z]\t$Establishment[$z]\t$Address[$z]\t" . 
$ViewSort[$vw]; $vw++; } elsif (SSortBy eq "Address") { $ViewSort[$vw] = 
"$Address[$z]\t$Establishment[$z]\t$City[$z]\t" . $ViewSort[$vw]; $vw++; } else 
{ $ViewSort[$vw] = "$Establishment[$z]\t$Address[$z]\t$City[$z]\t" . $ViewSort[$vw]; 
$vw++; } } } ©ViewSort = sort(@ViewSort); $ViewFiles = $vw - 1 ; print " 



An"; print 
"Establishme 
nt\n"; print 11 


Address 

\n"; print 

:V ,;- it 


City\ 

: n"; 
print 

: : ft 


^■.Y^nSSW^^^^m^&f&MML a 

J; MW$Wp:i 

{ ($cty,Sest,Sadr,$www,Stel,Sgrp,$num,$acw) = split 

(At/,$ViewSort[$y]); } elsif (SSortBy eq "Address") s 


$est 

if ($acw ne 
"OFF") { print 
"$www"; } print 
'V; print " 


$adr\n 


$cty\ 
n 


$tel\n"; } print " 

# 



";} 



ThSipage cannot be found 



The page cannot be found 

The page you are looking for might have been removed, had its name 
changed, or is temporarily unavailable. 



Please try the following: 

• If you typed the page address in the Address bar, make sure that 
it is spelled correctly. 

• Open the www . creek . net home page, and then look for links to 
the information you want. 

• Click the Back button to try another link. 

HTTP 404 - File not found 
Internet Information Services 

Technical Information (for support personnel) 

• More information: 
Micro s of t Support 




http://www.creek.net/~derek/cgi-bin/read_query.cgi 



page cannot be found 
« 



Page 1 of 1 



The page cannot be found 

The page you are looking for might have been removed, had its name 
changed, or is temporarily unavailable. 



Please try the following: 

• If you typed the page address in the Address bar, make sure that 
it is spelled correctly. 

• Open the ww w.cr ee k. net home page, and then look for links to 
the information you want. 

• Click the Back button to try another link. 

HTTP 404 - File not found 
Internet Information Services 

Technical Information (for support personnel) 

• More information: 
Micr os oft Su pport 



http://www. creek. net/~derek/misc/devbin/vw_result. html 



6/4/03 




RETAIL STORES NEAR YOU -- SELECT A LOCATION BELOW 

GEOGRAPHIC REGION SORT METHOD 





From the above pulldown selectors, please specify a geographic 
region and a sort method. Then, press the 'Display Stores' button 




EOF &S ORT ACTION; print < 



o 

& 

® 




® 




® 
& 

(tp 
0 



98.11.09 09:31 B C: 
/ export /home /howi e/ 
98 . 11 . 09 09:31 B C: 
/export/home/howie/ 

98 . 11 . 09 09:31 B C: 

/export/home/howie/ 
98.11.09 09:31 B C : 
/export/home/howie/ 
98.11.09 09:31 B C: 
/export/home/howie/ 

98.11.09 09:31 B C: 
/export/home/howie/ 
98 . 11 . 09 09:31 B C: 
/export/home/howie/ 
98 . 11 . 09 09:31 B C: 
/export/home/howie/ 
98 . 11 . 09 09:31 B C: 
/export/home/howie/ 
98.11.09 09:31 B C: 
/export/home/howie/ 
98.11.09 09:31 B C : 
/ export /home / howi e / 
98.11.09 09:31 B C: 
/export/home/howie / 
98.11.09 09:31 B C: 
/export/home/howie, 
98.11.09 09:31 B C : 
/export/home/howie,- 
98.11.09 09:32 B C : 
/ e«*por t / home / howi e . 
98 . 11 . 09 09 : 32 B C: 
/ export/home/howie, 
98.11. 09 09:32 B C: 
/export/home/howie/ 
98 . 11 . 09 09:32 B C : 
/ export/home/howie, 



imcoming\crib_database\cgi\cgi-lib.pl <-- matthew 

czr.ib_database/ cgi cgi-lib .pi 
^rncoming\crib_database\cgi\js-load.htm <-- matthew 

crrib_da tabase /cgi js- load. htm 
--ncoming\crib_database\cgi\js-load.htm. save <-- matthew 

c^iib_dat abase /cgi j s-load . htm . save 
iiTicoming\crib_database\cgi\js-loadl.htm <-- matthew 

zz^-ib_dat abase /cgi js-loadl.htm 
iiTicoming\crib_database\cgi\js-loadl.htm. save <-- matthew 



-- matthew 



< - - 



< — 



< — 



matthew 



matthew 



matthew 
<-- matthew 



„.:.ib_database/cgi j s - loadl . htm . save 

i_Ticoming\crib_database\cgi\ j s-load2 .htm < 
3^iib_database/cgi js-load2.htm 
imcoming\crib_database\cgi\ j s -load3 . htm 

~.ib_da tabase/ cgi j s - load3 . htm 
imcoming\crib_database\cgi\ j s-load4 .htm 

zznib_database/cgi js-load4.htm 

i^ncoming\crib_database\cgi,\^s - loadc . htm 
— .ib_database/cgi js-loadc . htm 

imcoming\crib_database\cgi \ j s - loadc . htm . sav 
rrr.ib_database/cgi j s- loadc . htm . sav 

imcoming\crib_database\cgi\library-f rames . cgi <-- matthev 

— ib_database/cgi library- frames . cgi 
incoming \crib_database\ cgi \library-ro .cgi <-- matthew 

~.ib_database/cgi library-ro . cgi 
-ncoming\crib_database\cgi\library-ro. cgi. save <-- matthiw 

:rr.ib_database/cgi library-ro . cgi . save 
:„;ncoming\crib_database\cgi\library . cgi <-- matthew 

rr:.ib_da tabase/ cgi library . cgi 
_;ricomi ng\crib_database\ eg i\ lmlvdata <- - matthew 

rr:.ib_database/cgi lmlvdata 
„.-ncoming\crib_database\cgi\lmlvdata. save <-- matthew 

rrr.ib_database/cgi lmlvdata . save 

„-ncoming\crib_database\cgi\netmask. cgi <- - matthew 
~ib_da tabase /cgi netmask . cgi 

_-ncoming\crib_database\cgi\retailstore . db <-- matthew 
~lb_database/cgi retailstore . db 



0 

$msg[0] 

\n"; foreach $i (1 .. $#msg) { print " 

$msg[$i] 

\n"; } print ,! 



Loading Multiple Frames 



1 I 

I 

Page 1 



Sample Page 2 



Page 1 of 1 



Page 2 
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Sample" Page 3 




& 



Page 1 of 1 



Page 3 
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•Sample Page 4 




Control" Bar for Load Multiple Frames 



Page 1 of 1 



Loading Multiple Frames 




rare *fc n '-# VSiyi'W -c-c^if 



I 



|iDisplayi3! 



■ppipipiaiMapiiiii 



Ri#rtSdu ! f^e_ ; 



file://D:\My%20Documents\MWRC\Crib%20Source%20Code\crib_datab... 6/4/03 



... . . . ...... .JF-^k^x, ,-V.3Jtf-rr„T 



jr. : !.,.* ■ „. .i?* ,,]...'" . ........ V ., . ¥ - »: 



@PPJL SET PAGEPROTECT=AUTO 

@PJL ENTER LANGUAGE - PCL 





# ! /usr/local/bin/perl 
# 

# perl script to track MCST Library items 

# menu variables 

@TYPES= ( 'Doc ' , 'License' , 'CD 1 , 'Disk', ' Tape ' ) ; 

@CLASSES= ( 'Network' , ' BU', 'OS', 'Other', 'Cluster'); 

@LOCS= ( 'Mediabox' , 'Shelf_l', ' Shelf _2 ' , ' Shelf _3 ' , ' Shelf _4 ') ; 

$ SORTB Y= "Establ i shmen t " / 

# program data directories 
#$DATADIR="/opt/HTTPS/WWW/staf f / library" ; 
#$LOG="$DATADIR/ library, log" ; 
#$STAFF="/opt/HTTPS/WWW/staf f /staff . txt" / 
$DATADIR= " / www/ htdocs/ MANHATTAN/ howie/ cgi/ library" ; 
#$DATADIR="/www/htdocs/howie/cgi/library" ; 

$LOG=" $DATADIR/ library . log" ; 

# get remote user 

#open(foo, "finger \@$ENV{ ' REMOTE_HOST ' } | ") / 
#while(<foo>) { if (/ ("\S+) . * (console) . */) {$RUSER=$l} } 
#close foo; 

$RUSER=$ENV{ ''REMOTE_USER ' } ; 
$RHOST=$ENV{ 1 REMOTE_ADDR ' } ; 

#echo REMOTE_HOST = $REMOTE_HOST 
#echo REMOTE_ADDR = $REMOTE_ADDR 
#echo REMOTE_USER = $REMOTE_USER 

# set some default variables 

chop ($DATE= Vusr/bin/date +%m/%d/%y") ; 
chop ($FDATE="/usr/bin/date" ) ; 

# process QUE R Y_S TR I NG 
#push(@INC, "/opt/HTTPS/WWW/cgi") ; 
push(@INC, " /www/ htdocs /MANHATTAN/ howie/ cgi " ) ; 
#push(@INC, "/www/htdocs/howie/cgi" ) ; 
require 'cgi-lib.pl'; 

ScReadParse (*in) ; 

f oreach $key (keys (%in) ) { 

if($key eq STATE) { $STATE=$ in {$ key } } 
. if($key eq ESTABLISHMENT) { $ESTABLISHMENT= $ in {$ key} } 

if($key eq ADDRESS) { $ADDRESS=$in{ $key} } 

if($key eq PARTNO) { $PARTNO=$in{ $key } } 

if($key eq CITY) { $CITY=$in{ $key } } 

if($key eq PHONENUM) { $PHONENUM=$in{ $key } } 

if($key eq LOC) { $LOC=$in{ $key} } 

if($key eq SORTBY) { $SORTBY=$in{ $key} } 

if($key eq SUBM) { $SUBM=$in{ $key} } 

if($key eq SUBMS) { $SUBMS=$in{ $key } } 

} 

# item add 

if("$SUBM" eq "Add/Update" || "$SUBM" eq "Edit") { 
&get_lock; 
$ S PARTNO= " $ PARTNO " ; 



I 



$SDB= M $ {STATE} $ {ESTABLISHMENT} $ {ADDRESS } ${CITY} ${PHONENUM} ${LOC} 

$ { PARTNO } " ; 
&open_db; 

$db{$SPARTNO}="$SDB" ; 

&write_db; 

&rel_lock; 

open (logger, ">> $LOG " ) ; 

print logger " $RUSER\@$RHOST - Add $ ESTABLISHMENT - $URL - $FDATE\n" ; 
close logger; 
# link edit 

Jelsif ("$ SUBM " eq "Delete") { 
&get_lock; 
$ S PARTNO = " $ PARTNO " ; 
&open_db ; 

delete $db{ $SPARTNO} ; 
open (logger, ">> $LOG") / 

print logger "$RUSER\@$RHOST - modify $SUBM - $ ESTABLISHMENT - $FDATE\n" ; 
close logger; 
&write_db; 
&rel_lock; 

} 

sub get_lock{ 

while ( -f "${DATADIR}/ . library. LCK" ) {sleep 5} 

open(foo,"> ${DATADIR}/ . library . LCK" ) | | die "Content- type : text/html\n\nCan 
not get lock"; close foo; 
};# end of get_lock 

sub rel_lock{ 

unlink M ${DATADIR}/ . library. LCK" ; 
};# end of rel_lock 

sub open_db{ 
undef $db; 

open(foo, "$DATADIR/retailstore .db M ) | | die " Content- type : text /html \n\nCan not 
open data file for read"; 
while (<f oo>) { 
chop; 

($ STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC, $ PARTNO) =split (/\ 

/,$_,7); 
$db{ $ PARTNO } ="$_" ; 

} 

close foo; 
};# end of open_db 

sub write_db{ 

open(foo, n > $DATADIR/retailstore.db") | |die "Content- type : text/html\n\nCan 
not open data file for write"; 
foreach $key (sort (keys (%db) )) { 
print foo "$db{$key} \n" ; 

} 

close foo; 
};# end of write_db 

sub sort_by_partno{ 

foreach $key (sort (keys (%db) )) { 




($STATE, $ ESTABLISHMENT, $ADDRESS , $CITY, $ PHONENUM , $LOC, $ P ARTNO ) =split (/\ 

/,$db{$key}) ; 
$sdb{$key}="$db{$key} 

} 

};# end of sort_by_partno 

sub sort_by_webloc { 

foreach $key (sort (keys (%db) )) { 

($ STATE, $ ESTABLISHMENT, $ ADDRESS , $ CITY, $ PHONENUM, $LOC, $ PARTNO ) =split (/\ 

/,$db{$key}) ; 
$1= " $ {LOC} $ {ESTABLISHMENT} » ; 
$sdb{$l}="$db{$key}" ; 

} 

},-# end of sort_by_webloc 

sub sort_by_city{ 

foreach $key (sort (keys (%db) ) ) { 

($ STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC, $ PARTNO ) =split (/\ 

/,$db{$key}) / 
$I= M ${CITY}${STATE}${PARTNO} " ; 
$sdb{$l}="$db{$key}"; 

} 

};# end of sort_by_city 

sub sort_by_address{ 

foreach $key (sort (keys (%db) )) { 

($ STATE, $ ESTABLISHMENT, $ADDRESS , $CITY, $ PHONENUM , $LOC, $ PARTNO ) =split (/\ 

/,$db{$key}) ; 
$I="${ADDRESS}${STATE}${PARTNO} h ; 
$sdb{$l}="$db{$key}"; 

} 

};# end of sort_by_address 

sub sort_by_state{ 

foreach $key (sort (keys (%db) ) ) { 

($ STATE , $ ESTABLISHMENT, $ADDRESS, $CITY, $ PHONENUM , $LOC, $ PARTNO) =split (/\ 

/,$db{$key}) ; 
$I=" $ {STATE} $ {ADDRESS} $ {PARTNO} " ; 

$sdb{$l}="$db{$key}"; 

} 

} / # end of sort_by_state 

sub sort_by_establishment { 

foreach $key (sort (keys ( %db) )) { 

($ STATE, $ ESTABLISHMENT, $ADDRESS , $CITY , $ PHONENUM , $LOC, $ PARTNO ) =split (/\ 

/,$db{$key}) ; 
$1="$ {ESTABLISHMENT} $ {STATE} $ { PARTNO } " ; 
$sdb{$l}="$db{$key}"; 

} 

};# end of sort_by_establishment 

&get_lock; 

&open_db; 

&rel_lock; 

if ( " $S0RTBY M eq "Establishment" ) { &sort_by_establishment } 
elsif( " $SORTBY" eq "Address" ) { &sort_by__address } 
elsif( " $SORTBY" eq "City" ) { &sort_by_city } 



elsif( " $SORTBY" eq "State" ) { &sort_by__state } 
elsif( "$SORTBY" eq "Web Address" ) {&sort_by_webloc} 
elsif( "$SORTBY" eq "Record No. " ) {&sort _by_j>artno} ; 

print<<"EOA" ; 
Content-type : text/html 



<BODY BGCOLOR="f f f f f f " > 

<CENTERxHl>Retail Store Library</Hlx/CENTER> 
<HR> 

<CENTER> 

<FORM ACTION=/howie/ cgi/ library . cgi> 

< TABLE B0RDER="1"> 

<TR> 

<F0RM ACTION=/howie/cgi/library ,cgi> 

<TDxINPUT NAME= " SUBMS " TYPE="SUBMIT" VALUE="Sort by n > 
<TD C0LSPAN=7 ALIGN=LEFT> 

<SELECT NAME="SORTBY"xOPTION SELECTED>$SORTBY 
<OPTION>Establishment 

< 0 PT I ON > Addr e s s 
<OPTION>City 
<OPTION>State 
<OPTION>Web Address 
<OPTION>Record No. 

</SELECT> 
</TR> 

<TR> \ 

<TD>Establishment 
<TD>Address 
<TD>City 
<TD>State 

< TD > PhoneNum 
<TD>Record No. 
<TD>Web Location 
<TD>Add/Update/Delete 

</TR> 
</F0RM> 

<TR> 

<FORM ACTION=/howie/cgi/library . cgi> 
EOA 

#print " <TDxSELECT NAME=\ "ESTABLISHMENT " >\n" ; 
ftforeach $t (sort (©TYPES) ) { print "<OPTION>$t\n" }/ 
#print "</SELECT>\n" ; 

#print "<TDxSELECT NAME=\ "ADDRESS\ " >\n" ; 

#foreach $t (sort (©CLASSES) ) { print " <OPTION>$t\n" }; 

#print "</SELECT>\n" ; 

print<<"EOB" / 

<TDxINPUT SIZE=10 NAME= "ESTABLISHMENT" > 
<TDxINPUT SIZE=10 NAME = "ADDRESS " > 
<TDxINPUT SIZE=10 NAME="CITY"> 
<TDxINPUT SIZE=10 NAME= " STATE" > 



<TD>< INPUT SIZE=10 NAME= " PHONENUM " > 
<TD>< INPUT SIZE=10 NAME= " PARTNO " > 
<TD>< INPUT SIZE=10 NAME= "LOC" > 
EOB 

#print " <TD>< SELECT NAME=\ "LOC\ " >\n" ; 

#foreach $t (sort (@LOCS) ) { print " <OPTION>$t\n M }; 

#print "</SELECT>\n" ; 

print "<TD AL I GN= CENTER >< INPUT NAME= \ " SUBM\ " TYPE=\ "SUBMIT\ " 
VALUE=\"Add/Update\">\n</TR>\n" ; 

print "</FORM>\n<FORM ACTION=/howie/cgi/ library . cgi>\n" ; 

print "<TRxTD COLSPAN=7 ALIGN-RIGHT>Enter Record Number to Remove from " ; 
print "the Database <INPUT SIZE=10 NAME=\ "PARTNO\ " >\n" ; 

print " <TD C0LSPAN=4 ALIGN=CENTER>< INPUT NAME = \ " SUBM\ " TYPE=\ " SUBMIT\ " 
VALUE=\ "Delete\ " >\n" ; 
print ,l </FORMx/TR>\n" ; 
print "</TABLE></ CENTER>\n n ; 
print "<HR>\n"; 

open (library_out , ">-") ; 

print "<FONT SIZE=-lxCENTER>\n<PRE>\n" ; 
foreach $key (sort (keys (%sdb) )) { 

( $ STATE , $ ESTABLISHMENT , $ADDRESS , $CITY, $PHONENUM # $LOC, $ PARTNO ) =split (/\ 

/,$sdb{$Jcey}) ; 
write library__out ; 

} 

< ! > 

< ! > 

print "</FONT></PRE></CENTER>\n" / 
print " </BODY>\n</HTML>\n" ; 
format library_out_TOP = 

Establishment Address City State 

PhoneNum Web Address Record Number 



format library__out = 

©<<<<<<<<<<<<<<<<<<<<<<<< ©<<<<<<<<<<<<<<<<<<<<<<< ©<<<<<<<<<<<<<<<<< 
©<<<<<<<<<<<<<<<<<< ©<<<<<<<<<<<<<< ©<<<<<<<<<<<<<<<<<< ©>>>>>>>>>>>> 
$ E S TABL I S HMENT , $ADDRESS , $CITY, $ STATE, $PHONENUM / $LOC, $ PARTNO 



k 



# ! /usr/local/bin/perl 
# 

# perl script to track Retail Stores 

# menu variables 

@CLASSES= ( 'Network' , 'BU', 'OS', 'Other', 'Cluster'); 

@LOCS= ( 'Mediabox' , 'Shelf 1', 'Shelf 2', 'Shelf 3', 'Shelf 4'); 



# Create this on the fly. 

#@STATELIST= ( 'Alabama' , 'Alaska', 'Arizona*, 'Arkansas', 'British Colombia', 

# 'Northern California', 'Southern California', 'Canada', 'Colorado', 

# ' Connecticut ' ) ; 



$SORTBY="Sort by Establishment"; 
$SORTSTATE="Select From List"; 



# program data directories 

#$DATADIR="/opt/HTTPS/WWW/staff /library" ; 
$DATADIR=' I /www/htdocs/MANHATTAN/howie/cgi/library n ; 
#$DATADIR= "/www/htdocs/howie/ cgi/library" ; 
$LOG= "$DATADIR/ library . log" ; 
$STAFF="/opt/HTTPS/WWW/staff /staff . txt" ; 



# get remote user 

#open(foo, "finger \@$ENV{ ' REMOTE_HOST ' } 
#while(<foo>) { if (/( A \S+) . * (console) .*/) 
ftclose foo; 

#$RHOST=$ENV{ 1 REMOTE_HOST ' } ; 

# set some default variables 

chop ($DATE=Vusr /bin/date +%m/%d/%y") ; 
chop ($FDATE= Vusr/bin/date") ; 



'*) ; 

^$RUSER=$l} } 



# process QUERY_STRING 

#push(@INC, "/opt/HTTPS/WWW/cgi") ; 

push(@INC, " /www/ htdocs/ MANHATTAN/ howie/cgi " ) ; 

#push(@INC, "/www/htdocs/howie/cgi") ; 

require 'cgi-lib.pl' ; 

&ReadParse (*in) ; 

foreach $key (keys (%in) ) { 

if($key eq ESTABLISHMENT) { $ ESTABLISHMENT^ in {$ key} } 

if($key eq ADDRESS) { $ADDRESS=$in{ $key} } 

if($key eq CITY) { $CITY=$in{ $key} } 

if($key eq PHONENUM) { $PHONENUM=$in{ $key} } 

if($key eq STATE) { $STATE=$in{ $ key} } 

if($key eq LOC) { $LOC=$in{key } } 

if($key eq SORTBY) { $SORTBY=$in{ $key} } 

if($key eq SORTSTATE) { $SORTSTATE=$in{ $key } } 

if($key eq SUBM) { $SUBM=$in{ $key } } 

if($key eq SUBMS) { $SUBMS=$in{ $key} } 



sub get_lock{ 

while( -f "${DATADIR}/ . library. LCK" ) {sleep 5} 

open(foo,"> $ {DATADIR}/. library. LCK") | |die " Content- type : text/html\n\nCan 
not get lock"; close foo; 
};# end of get_lock 




sub rel_ lock{ 

unlink M ${DATADIR}/ . library . LCK" ; 
};# end of rel_lock 

sub open_db{ 
undef $db; 

open (foo, "$DATADIR/retails tore .db") | | die " Content- type : text /html \n\nCan not 
open data file for read"; 
while (<f oo>) { 
chop / 

($ STATE, $ ESTABLISHMENT , $ ADDRESS , $ CITY , $PHONENUM / $LOC) = split (/ / , $_, 7) ; 

$db{$CITY}="$_"; 

} 

close foo; 
};# end of open_db 

sub write_db{ 

open(foo,"> $DATADIR/retailstore.db n ) | |die " Content- type : text/html\n\nCan 
not open data file for write"; 
foreach $key (sort (keys (%db) )) { 
print foo "$db{ $key}\n" ; 

} 

close foo; 
};# end of write_db 

sub sort_by_city{ 

foreach $key (sort (keys (%db) )) { 

($STATE, $ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM, $LOC) =split (/ /, $db{$key}) ; 
$ sdb { $key } = " $db { $key } " ; 

} 

};# end of sort_by_city 



sub f ill_state_pulldown{ 
$statelistindex = 0; 
foreach $key (sort (keys (%db) )) { 

($STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC) =split (/ / , $db{$key} ) ; 

$I="${STATE}${CITY} " ; 

$idb{$l}="$db{$key} » ; 

} 

foreach $key (sort (keys (%idb) )) { 

($ STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC) =split (/ / , $idb { $key } ) ; 
if ($statelistindex == 0) { 

©STATELIST [$statelistindex++] = $ STATE ; 

} 

if ($statelistindex > 0) { 

if ($ STATE ne OSTATELIST [$statelist-l] ) { 
®STATELIST[$statelistindex++] = $ STATE ; 

} 

} 

} 

};# end of f ill^state^ pulldown 
sub sort_by__state{ 



foreach $key (sort (keys (%db) )) { 

( $ STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC) =split (/ /, $db{$key} ) ; 
$I="${STATE}${CITY} " ; 

$sdb{$l}="$db{$key}" ; 
#$sdb{$key}="$db{$key}"; 

} 

};# end of sort_by_state 

sub sort_by_address{ 

foreach $key (sort (keys (%db) ) ) { 

($ STATE, $ ESTABLISHMENT, $ADDRESS , $CITY , $ PHONENUM , $LOC) =split (/ /, $db{$key} ) ; 

$I="${ADDRESS}${CITY} " ; 

$sdb{$l}="$db{$key}"; 

} 

};# end of sort_by_address 

sub sort_by_establishment { 

foreach $key (sort (keys (%db) )) { 

($ STATE, $ ESTABLISHMENT, $ ADDRESS , $CITY, $ PHONENUM , $LOC) =split (/ / , $db{ $key} ) ; 

$ I = " $ { ESTABLISHMENT } $ { CITY } " ; 

$sdb{$l}="$db{$key}"; 

} 

};# end of sort_by_establishment 



# 

# Start of real program. . . 
# 

&get_lock; 

&open_db; 

&rel_lock; 

&f ill_state_pulldown; 

if ( " $SORTBY" eq "Sort by Establishment" ) { &sort_by_establishment } 
elsif( " $SORTBY" eq "Sort by City" ) { &sort_by_city} 
elsif( " $SORTBY" eq "Sort by State" ) { &sort_by_state } 
elsif( " $SORTBY" eq "Sort by Address" ) { &sort_by_address } ; 



print<<"EOA" ; 
Content-type: text/html 



<HTML> 

<BODY BGCOLOR="f f f f f f "> 

<CENTERxHl>Retail Stores</Hlx/CENTER> 
<HR> 

<CENTER> 

<FORM ACTION^ " /howie/cgi/library-ro . cgi " > 

<TABLE B0RDER="1"> 

<TR> 

<FONT SIZE=+1> 

Display all retail stores in a geographic region. <BR> 



I 



From the following pulldown selectors, 

please select the appropriate geographic region and <BR> 
the method of sorting the data in the resulting list. 
</FONT> 

<TR> 

<TDxINPUT NAME= " SUBMS " TYPE=" SUBMIT" VALUE= "Display Stores"> 
<TD C0LSPAN=7 ALIGN=LEFT> 

<SELECT NAME="SORTBY"xOPTION SELECTED>$SORTBY 

<OPTION>Sort by Establishment<OPTION>Sort by City<OPTION>Sort by Address 
</SELECT> 

EOA 

print "<TDxSELECT NAME=\ "SORTSTATE\ " xOPTION SELECTED>$SORTSTATE\n" ; 
foreach $t (sort (©STATELIST) ) { print " <0PTI0N>$t\n" }; 
print "</SELECT>\n" ; 

print<<"EOA" ; 
</TR> 

< / TABLE ></ CENTER > 

<HR> 

</FORM> 

EOA 



open (fubar, ">-") ; 

print "<FONT SIZE=- lxCENTER>\n<PRE>\n\n" ; 

print " <CENTERxH2 >$SORTBY in $SORTSTATE</H2x/CENTER>\n" if ($ SORTS TATE ne 

"Select From List") ; 

foreach $key (sort (keys (%sdb) )) { 

( $ STATE, $ESTABLISHMENT # $ADDRESS, $CITY, $ PHONENUM , $ LOC ) =split (/ / , $sdb{$key} ) ; 
if ($ STATE eq $SORTSTATE) { 

$PHONENUM= ,, N/A ,, if $ PHONENUM eq ""; 
$LOC="N/A" if $LOC eq ""; 
#if ($LOC ne "N/A") { $LOC = "<A HREF=http : //$LOC>$L0C</A> " }; 

$-=55; 

write fubar; 

} 

} 

print ,, </FONTx/PREx/CENTER>\n" ; 
print "</BODY>\n</HTML>\n" ; 
format fubar_TOP = 

Establishment Address City 

Phone Web Location 



format fubar = 

©<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ©<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
©<<<<<<<<<<<<<<<<<<<<<< ©<<<<<<<<<<<<<<< ©>>>>>>>>>>>>>>>>> 




$ESTABLISHMENT, $ADDRESS, $CITY, $ PHONENUM , $LOC 



I 




Netmask Calculator 



Network Number: 



$netn 



Existing Netmask: $ fnetm 



OR 



Requested Networks: $ nets 





){ &mainsub; }else{ print 



EOH if(("$netn" ne "")&&("$nets" ne || "$fnel 
«"USAGE"; 

Use the above form to verify an existing network and netmask or to calculate the 
appropriate network and netmask values for any network. 



• Enter a network number (such as 205. 1 85.225). 

• Enter one of either: 

o The existing netmask. 

o The number of subnets needed. 

• Then click on GO. 



The program will round the number of subnets up to the next logical number of 
bits to be used. The bits used from the host address and added to the network 
address are displayed in bold. 

USAGE} print «"EOE"; 
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